From: Kim F. Storm Date: Sun, 23 Nov 2003 00:27:27 +0000 (+0000) Subject: Bind mouse-1 on left-fringe and right-fringe to mouse-set-point so X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~24921 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=614a326b143916589ee0b23d20fb9f62f6c910f9;p=emacs.git Bind mouse-1 on left-fringe and right-fringe to mouse-set-point so that hscroll still works now that clicks on fringes generate specific mouse events. (mouse-set-point): Note that it now works in fringes and margins too due to new semantics of posn-point in fringes and margins. --- diff --git a/lisp/mouse.el b/lisp/mouse.el index ecf642caeed..9b80ccc0cf5 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el @@ -2204,6 +2204,10 @@ and selects that window." (global-set-key [double-mouse-1] 'mouse-set-point) (global-set-key [triple-mouse-1] 'mouse-set-point) +;; Clicking on the fringes causes hscrolling: +(global-set-key [left-fringe mouse-1] 'mouse-set-point) +(global-set-key [right-fringe mouse-1] 'mouse-set-point) + (global-set-key [mouse-2] 'mouse-yank-at-click) (global-set-key [mouse-3] 'mouse-save-then-kill)